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PROGRAMAÇÃO DE 
GRÁFICOS EM 3-D (1) 


xt O QUE É UM DESENHO 

i TIPO WIREFRAME? 
EE COMO ORGANIZAR AS ROTINAS 
E) DESENHE UMA GRADE 
E DESENHE UM CÍRCULO 





Neste primeiro artigo da série sobre 
desenho tipo wireframe, você 
aprenderá a elaborar grades e círculos. 
Mais tarde, verá como utilizá-los 

para estruturar imagens em 3-D. 


Desenhos tridimensionais em movi- 
mento, do tipo wireframe (ou gradea- 
do), têm se tornado imagens comuns em 
propagandas e, sem dúvida, impressio- 
nam muito. O efeito é uma das mais re- 
centes contribuições do computador às 
comunicações visuais. Se, como usuário 
de um micro pessoal, você quiser pro- 
duzir figuras como aquelas, certamente 
ficará desapontado ao verificar que é 
impossivel obter o esplendor das ima- 
gens elaboradas por computadores, ar- 
tistas e técnicos fotográficos nos comer- 
ciais de televisão. 

Mas nem tudo está perdido: nesta sé- 
rie de artigos, você verá como extrair O 
máximo de seu computador, capacitan- 
do-o a produzir e movimentar imagens 
em 3-D de uma maneira que até en- 
genheiros-desenhistas invejariam. 

Como vimos em artigos anteriores, a 
possibilidade de endereçar pontos indi- 
viduais (pixels) na tela proporciona ao 
micro uma poderosa ferramenta de de- 
senho. O TK-90X, por exemplo, tem 
256 pixels na horizontal e 176 na verti- 
cal. Normalmente, desenhamos linhas 
retas ou pontos que, combinados com 
recursos de cor, são usados para produ- 
zir imagens de alta resolução. 

O método empregado para desenhar 
linhas em sistemas gráficos controlados 
por computador é, em geral, semelhan- 
te ao utilizado quando se trabalha com 
caneta e papel. Podemos mover o cur- 
sor pela tela fazendo com que ele deixe 
marcas ou não, e mudar de cor é tão 
simples quanto trocar de caneta. 

A principal diferença entre desenhar 
com o computador ou manualmente es- 
tá na rapidez da máquina e na perfei- 
ção com que ela traça linhas retas. Es- 
tas características tornam possível dese- 
nhar imagens em seus contornos ou 
mesmo wireframes tridimensionais. 





O QUE É, AFINAL, UM WIREFRAME? 


Wireframes são representações ima- 
ginárias formadas por grades de linhas 
sobre a superficie do objeto. Geralmen- 
te, neste tipo de desenho, as linhas de 
fundo do objeto também ficam aparen- 
tes, pois, para escondê-las, precisaria- 
mos de muitos cálculos extras. O resul- 
tado é uma figura que parece feita so- 
| mente de uma armação de arame. 








Os wireframes podem ser movimen- 
tados ou rodados, como vemos em di- 
versas propagandas. Nos micros pes- 
soais, não se consegue a mesma rapidez. 
Para alcançar velocidade semelhante, 
precisariamos que os quadros mudassem 
pelo menos a cada 1/25 de segundo. Na 
verdade, a maioria dos computadores 
usados nos comerciais de TV também 
não são tão rápidos assim, mas as ima- 
gens parecem estar em “tempo real” 
graças a técnicas de filmagem. 


Em desenhos estáticos, o tempo não 
é importante, embora cause irritação es- 
perar demais até que uma figura se com- 
plete. Mas, por outro lado, muitas ve- 
zes é mais interessante ver a figura sen- 
do desenhada do que vê-la acabada, so- 
bretudo se ela for bem complexa, 

Começaremos desenhando formas 
simples, como cubo ou esfera; à medi- 
da que nos familiarizarmos com as téc- 
nicas do wireframe, tentaremos formas 
mais complicadas. Neste artigo, apren- 











deremos a criar figuras bidimensionais 
que parecerão estar em espaço tridimen- 
sional. Infelizmente, as rotinas aqui 
apresentadas não servem para os micros 
das linhas ZX-81 e TRS-80. 





PRIMEIROS PASSOS 


A execução de um desenho comple- 
xo do tipo wireframe é bem demorada, 
independentemente da velocidade ou da 


capacidade de traçar linhas de um mi- 
cro. Os primeiros passos consistem na in- 
corporação de um conjunto de rotinas, 
que incluem os comandos gráficos bá- 
sicos. Precisamos de um comando que 
mova o cursor sem desenhar e outro que 
o movimente desenhando. Estes coman- 
dos variam de máquina para máquina, 
como é o caso do MOVE, DRAW e LI- 
NE, já vistos em outros artigos. 

Um programa gráfico geralmente co- 
meça ajustando o computador para o 
modo gráfico, se necessário, e limpan- 
do a tela. Devemos optar sempre pela 
resolução de tela mais alta. Convém ain- 
da estruturar o programa de modo que 
todos os comandos gráficos sejam co- 
letados juntos em sub-rotinas. Com es- 
sa medida, evitaremos reescrever desne- 
cessariamente porções de programa que 
realizam a mesma tarefa. Além disso, 
tanto a expansão quanto o entendimen- 
to do programa serão mais simples se os 
comandos que realizam certa tarefa fo- 
rem coletados numa mesma área. A €es- 
truturação de um programa deixa-o, de 
fato, um pouco lento; isso, porém, não 
tem maior importância quando lidamos 
com figuras estáticas. 


INICIALIZAÇÃO DA MÁQUINA 





Para começar o trabalho com as ro- 
tinas de desenho, digite esta parte do 
programa, mas não a rode ainda pois es- 
tá incompleta, 


INICIO 
ATN (1) 
HCOLOR= 3J:N = O 


REM 
PI = 4 * 
HGRZ 
RETURN 
REM MOVE 

HPLOT X1,Y1 

RETURN 

REM DESENHA 

HPLOT X1l,Y1 TO X2,Y2 
RETURN 


9000 
9005 
9010 
9070 
9100 
9110 
9120 
9200 
9210 
9220 


9000 
9030 


PCLS 
RETURN 


9000 
9010 
CLS 

92070 
9100 
9110 
9120 
9200 
9210 
3678 
9220 


REM INICIO 
BORDER A: 
LET N=0 

RETURN 

REM MOVE 
PLOT X,Y 
RETURN 

REM DESENHA 

DRAW X-PEEK 236/7,Y-PEEK 2 


PAPER 7: INK O: 


RETURN 





O 


9000 CLS 
9030 RETUAN 


Os programas do TRS-Color e MSX 
são mais curtos porque esses computa- 
dores permitem que movimentemos o 
cursor e desenhemos usando um simples 
comando. Os programas do Spectrum 
e do Apple, por sua vez, contêm sub- 
rotinas que movimentam o cursor sem 
desenhar (linhas 9100 a 9120) e que de- 
senham na tela (linhas 9200 a 9220). Es- 
sas rotinas combinadas formam uma 
unica rotina de movimento e desenho. 

Agora, para fazer um desenho, não 
precisaremos dizer ao computador co- 
mo mover O cursor ou marcar a tela; 
bastará definir a forma do objeto nos 
termos dessas rotinas básicas. 





DESENHO DE LINHAS 


A forma mais simples que um dese- 
nho pode assumir é, sem dúvida algu- 
ma, a de uma linha. Aqui está a rotina 
que faz isso; digite-a, mas não rode o 
programa ainda. 


9500 REM LINHA 


9510 X1 = XS:Y1 = YS: GOSUB 910 


X2 = XE:Y2 = YE: GOSUB 920 


RETURN 


9500 
9550 


LINE (XS,75)-(XE, TE), PSET 
RETURN 


9500 
9510 
9100 
9520 
9200 
9550 


REM LINHA 
LET X=XS: LET Y=YS: GOSUB 


LET X=XE: LET Y=YE: GOSUB 


RETURN 


9500 
9550 


LINE (XS, YS)-(XE,YE),15 
RETURN 


A rotina especifica uma posição ini- 
cial — coordenadas (XS, YS) — e uma 
posição final — coordenadas (XE, YE) 
— para a linha. Em alguns computado- 
res é necessário utilizar os comandos 
DRAW ou LINE; em outros, isto já es- 
tá especificado nas rotinas das linhas 
9100 a 9220. A rotina que desenha linhas 
é a base da maioria dos programas do 
tipo wireframe. 














O DESENHO DA GRADE 


Para representar uma superfície e 
qualquer irregularidade que possa ter — 
como morros, vales, fendas etc. — é me- 
lhor visualizá-la não como uma área 
contínua dentro de um retângulo, mas 
como uma grade de linhas horizontais 
e verticais. Assim, todas as irregularida- 
des poderão ser representadas por dis- 
torções dessas linhas. 

A próxima seção do programa defi- 
ne a rotina que desenha uma grade. 
Digite-a, mas não a rode. 

5000 JA = LW / NX 

5010 X5 = XA 

5020 FOR J = O TO NK 

5025 YS = YA:XE = KS:YE = YA + 
LH 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
Ys 
5100 
5110 


5120 
5130 


5000 
5010 
5020 
5025 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 


5000 
5010 


GOSUB 9500 
XS = XS + JA 

NEXT J 
JA = LH / NY 
YS = YA + LH 

FOR J = O TO NY 
XS = XA + LW:XE = XA:YE = 


GOSUB 9500 
YS = Y5 - JA 
NEXT J 
RETURN 


JA=LW/NK 

ASXA 

FOR JB=0 TO NX 
YS=YA:XE=XS: YE=YA+LH 
GOSUB 9500 

XS=XS+JA 

NEXT JB 

JA=LH/NY 

YS=YA+LH 

FOR JB=0 TO NT 
AS=KA+LW:KE=KA: YE=YS 
GOSUB 9500 

TS=T5-JA 

NEXT JB 

RETURN 


LET JA=LW/NX 

LET XS=XA 

5020 FOR J=0 TO NX 

5025 LET YS=YA: LET XE=XS: LET 
YE=YA+LH 

5030 GOSUB 9500 

5040 LET XS=XS+JA 

5050 NEXT J 

5060 LET JA=LH/NT 

5070 LET YS=YTA+LH 

5080 FOR J=0 TO NY 
5090 LET XS=XA+LW: LET 
ET YE=YS 

5100 GOSUB 9500 

5110 LET YS=YS-JA 

5120 NEXT J 


XESXA: L 


5130 


5000 
5010 
5020 
5025 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 


As coordenadas (XA,YB) especifi- 
cam o canto inferior esquerdo da gra- 
de. LW especifica a largura; LH, a al- 
tura; NX, o número de divisões horizon- 
tais, e NY, o número de divisões verti- 
cais. A variável JA determina a distân- 
cia entre as linhas verticais, e o laço 
FOR...NEXT desenha horizontais, 
mantendo aquele intervalo. O segundo 
laço FOR... NEXT desenha verticais a 
intervalos calculados pela linha 5060. 

A rotina entre as linhas 5000 e 5180 
desenha as linhas horizontais da esquer- 
da para a direita, e as verticais de baixo 
para cima, formando uma grade de su- 
perfície plana. Não poderíamos, portan- 
to, representar irregularidades na super- 
fície dessa grade. 

Para mostrá-la na tela, digite as li- 
nhas seguintes, que chamam a rotina, e 
rode o programa. 


Cao 


100 GOSUB 9000 

175 XA = O:YA = O:;LW = 
191:NX = L6:NT = 14 
180 GOSUB 5000 

190 STOP 


100 PMODE 4:SCREEN 1,1 

105 PI=4*ATN(1) 

110 GOSUB 9000 

175 XA=0:YA=0:LW=255:LH=19]:NX= 
4:NY=3 

180 GOSUB 5000 

190 GOTO 190 


100 GOSUB 9000 


RETURN 


JA=LW/NXK 

XS=KA 

FOR JB=0 TO NX 
YS=YA:XE=KS: VE=YA+LH 
GOSUB 9500 

AS=KS+JA 

NEXT JB 

JA=LH/NY 

YS=YA+LH 

FOR JB=0 TO NY 
XS=XA+LW:XE=KA: YE=YS 
GOSUB 9500 

YS=YS-JA 

NEXT JB 

RETURN 


LA 


279:LH = 


175 LET XA=Q0: LET YA=O: LET LW 
=255: LET LH=175: LET NX=16: 
LET NY=12 

180 GOSUB 5000 

190 STOP 


100 SCREEN 2:COLOR 1,9,10 


Li R | 
| | | 


105 PI=4*ATN(1) 
110 GOSUB 9000 
175 XA=0:YA=0:LW=255:LH=191:NX= 
4:NY=3 
180 GOSUB 5000 
190 coTo 190 

Ao rodar o programa, aparecerá uma 
grade ocupando toda a tela. Faça as mu- 
danças abaixo para observar a versati- 
lidade do programa: 
175 XA = 10:YA = 10:LW = 
= 144:NX = 1:NY = 1 


175 XA=10:YA=10:LW=240:LH=160:N 
X=1:NY=1 


240:LH 


175 LET XA=10: LET YA=10: LET 
LW=240: LET LH=144: LET Nã=1: 


LET NT=] 


tt 


175 XA=10:YA=10:LW=240:LH=160:N 
X=1:NY=10K 


Desta vez, aparece na tela uma caixa 
retangular, já que se especificou uma 
grade com apenas uma divisão horizon- 
tal e uma vertical, Fornecendo valores 
adequados a NX e NY, como acima, po- 
demos construir uma grade com núme- 
ros de linhas horizontais diferente do de 
verticais. Faça as mudanças que se se- 
guem e rode o programa: 


Lélio) 
175 XA = O:YA = 0:LW = 
130:NX = 16:NY = 16 


175 XA=0:YA=31:LW=160:LH=160:NX 
=15:NY=10 


175 LET KA=0: LET YA=0D: LET LW 
=160: LET LH=144: LET NX=15: 
LET NY=10 


Da 


175 XA=0:YA=31:LW=160:LH=160:NX 
=15:NY=10 


Para a forma quadrada, determina- 
mos os valores apropriados de LW e LH 
e o número de divisões por NX e NY. 


180:LH = 





SS 


Os círculos também são muito úteis 
nos desenhos tipo wireframe. Em alguns 





| | | 
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micros, eles podem ser executados dire- 
tamente por um comando, bastando que 
se definam o centro e o raio. 

O comando direto, contudo, não nos 
oferece o grau de controle necessário pa- 
ra a elaboração de um desenho tridimen- 
sional. Em perspectiva, um círculo vis- 
to de um certo ângulo pode parecer uma 
elipse ou até uma curva. Embora dese- 
nhe elipses, o comando CIRCLE não é 
capaz de lhes conferir a tridimensiona- 
lidade essencial para garantir a aparên- 
cia realística ao objeto. Convém, por- 
tanto, definir uma função genérica. 

Podemos compor um circulo usando 
uma série de segmentos de reta. Se es- 
tes forem suficientemente pequenos, a 
curva parecerá continua. Mas, quanto 
menores forem os segmentos de reta, 
maior será o número deles e mais pro- 
longado o tempo de execução. Aqui es- 
tá uma rotina que desenha um círculo 
de raio R com centro em (XS, YS). 
Digite-a, mas não a rode ainda. 


Lab) 


6000 IF N=OTHENN=Z0+ I 
NT (BR / 10) 
6020 JA = 2 * PI /N 


6050 KR = XS:YR = YS 
6060 JB = 0:XS = XS + R 
6070 FOR J = 2 TON 
6080 JB = JB + JA 
6090 XE = XR + R * 

= YR + RAR * SIN (JB): 
Do 
6100 XS = XE:YS = YE 
6110 NEXT J 

6120 XE = XR + R:YE = YR: GOSUB 


COS (JB) :YE 
GOSUB 95 


XS = XR:YS = YR 
6160 RETURN 


6000 
6020 
6050 
6060 
6070 


IF N=0 THEN N=20+INT (R/10) 
JA=2*PI/N 

AR=AS:TA=T5 

JB=0:XS=XS+R 

FOR JC=2 TO N 

6080 JB=JB+JA 

6090 XE=XR+R*COS (JB) : YE=YR+RXSI 
N(JB):GOSUB 9500 

6100 XS=XE:YS=YE 

6110 NEXT JC 

6120 XE=XR+R: YE=YR:GOSUB 9500 
6130 XS=XR:YS=YR 

6160 RETURN 


6000 IF N=0 THEN 
(R/10) 

6020 LET JA=2*PI/N 
6050 LET XR=XS: LET YR=YS 
6060 LET JB=0: LET XS=XS+R 
6070 FOR J=2 TON 


6080 LET JB=JB+JA 
6090 LET XE=XR+R*COS JB: 


LET N=20+INT 


LET YE 


=YR+R*SIN JR: GOSUB 9500 
6100 LET XS=KE: LET YS=YE 
6110 NEXT q 

6120 LET XE=XBR+A: 
SUB 9500 

6130 LET XS=XR: 
6160 RETURN 


ny 


6000 
6020 
6050 
6060 


LET TE=YR: GO 


LET YS=YR 


IF N=0 THEN N=20+INT (R/10) 
JA=2*PI/N 

XR=KS:YR=YS 

JB=0:XS=XS+RA 

6070 FOR JC=2 TO N 

6080 JB=JB+JA 

6090 XE=XR+RX*COS (JB) : YE=SYR+R*SI 
N(JB) :GOSUB 9500 

6100 XS=XE:YS=YE 

6110 NEXT JC 

6120 XE=XR+R:YE=YR:GOSUR 9500 
6130 XS=XR:YS=YR 

6160 RETURN 

A variável N especifica o número de 
segmentos de reta que serão usados na 
composição do círculo, Caso façamos 
N=0,a linha 6000 calculará o número 
de segmentos necessários para fazer o 
circulo mais liso, levando em conta, é 
claro, o tamanho dele. 

A linha 6020 calcula o ângulo de 
cada segmento de reta na circunferên- 
cia. A linha 6050 move o cursor para 
uma posição na circunferência. O laço 
FOR...NEXT traça todos os segmentos, 
com exceção do último, que é desenha- 
do pela linha 6120, para garantir que se 
una ao primeiro. 

Para ver a rotina funcionando, apa- 
gue a linha 180 e acrescente estas: 


Lob] [5] 


150 FOR BR = 20 TO 70 STEP 10 


155 X5S = 128:YS = 102:N = 24 
160 GOSUB 6000 
170 NEXT R 


150 FOR R=0 TO 100 STEP 20 
155 X58=128:Y75=102:N=24 

160 GOSUB 6000 

170 NEXT R 


150 FOR R=20 TO 720 STEP 10 
155 LET X8=128: LET YS8=102: 
LET N=24 

160 GOSUB 6000 

170 NEXT R 


o 


150 FOR R=0 TO 100 STEP 20 
155 X8=128:Y58=102:N=24 

160 GOSUB 6000 

170 NEXT R 





Posso colorir wireframes? 

Desenhos do tipo wireframe geral- 
mente são apresentados em duas co- 
res, sobretudo preto e branco. 

A presença de muitas cores tende 


| a complicar a imagem, muitas vezes 


anulando o efeito tridimensional. Além 
disso, a adição de cores a um desenho 
complexo esbarra em limitações da 
própria máquina, 

No TRS-Color, o maior número de 
cores sacrifica a alta resolução gráfica, 
pois a resolução se reduz à metade 
quando passamos de um modo de duas 

| cores para um de quatro. 

No Spectrum e no MSX, determina- 
das porções da tela só podem apresen- 
tar duas cores. No Spectrum, esta por- 
ção corresponde a cada bloco de oito 
por oito pontos da tela; no MSX, a ca- 
da conjunto de oito pontos adjacentes 
na horizontal. 

Já no Apple e no TK-2000, algumas 
cores ocupam colunas pares, outras 

| impares, em alta resolução. Se colocar- 

| mos pontos ou linhas em colunas ina- 
dequadas à sua cor, eles simplesmen- 
te não aparecerão na tela. 


Rodado o programa, um certo núme- 
ro de círculos aparecerá no centro da te- 
la. Como na rotina da grade, podemos 
variar Os parâmetros no programa que 
chama a rotina e obter uma disposição 
de circulos diferente. A linha 150 ajus- 
ta o raio do primeiro circulo e determi- 
na o quanto ele aumenta. A 155 define 
o centro do círculo e o número de seg- 
mentos de reta que formarão a circun- 
ferência. Como exercício, varie esses va- 
lores e veja os resultados. 

Talvez você queira saber o que acon- 
teceu com a rotina da grade: ela ainda es- 
tá na memória, mas, como reescrevemos 
as linhas de código que chamam a roti- 
na, o computador não as mostra. Roti- 
nas como esta podem ser guardadas num 
arquivo de rotinas gráficas para uso pos- 
terior. Elas terão utilidade em vários ti- 
pos de programa gráfico, bem como nos 
de wireframes. Na medida em que for pre- 
ciso, adicione novas rotinas. Uma vez no 
computador, salve-as em cassete ou dis 
co e carregue-as novamentena memória 
quando for utilizá-las. Junte-as, se neces- 
sário. No próximo artigo desta série, ve- 
remos como usar essas rotinas na criação 
de wireframes tridimensionais. 
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Neste artigo, você encontrará a par- 
te principal do programa editor de tex- 
tos e as explicações sobre o uso das fun- 
cões de edição em cada máquina. Em- 
bora os procedimentos sejam muito pa- 
recidos, controles específicos e algumas 
características variam. 

Após digitar as linhas aqui apresen- 
tadas, você já poderá usar todas as fun- 
ções de edição do programa. Mas 
lembre-se de que só será possível impri- 
mir o texto criado depois da última par- 
te, que daremos no próximo artigo. 

Como você verá, as opções de edição 
oferecidas pelo programa são úteis em 
vários níveis. O mais simples consiste na 
correção dos erros de grafia. E facilimo 
eliminá-los: basta colocar sua.''caneta 
eletrônica”, o cursor, sobre a palavra er- 
rada e inserir ou apagar as letras que 
quiser. 

Se a ortografia não é um problema 
para você, mas sim a composição do 
texto, este programa se revelará ideal. 
Ao escrever algo importante, como uma 
“solicitação de emprego ou uma explica- 
ção ao gerente sobre um problema em 
sua conta bancária, você já não preci- 
sará gastar uma pilha de folhas de pa- 
pel, riscando e reescrevendo até encon- 
trar o termo mais preciso, ou a forma 
mais adequada. 

Vá direto ao computador e econo- 
mize papel e paciência. 

Comece digitando um rascunho do 
texto e, depois, melhore-o. Analise O 
que já escreveu “passeando” pelo tex- 
to, do início ao fim, quantas vezes jul- 
gar necessário. Quando decidir fazer al- 
guma modificação, corrija, apague ou 
introduza o que quiser. Trabalhe à von- 
tade, até que o texto lhe agrade. 

Uma outra possibilidade que o pro- 
grama lhe oferece é a de armazenar O 
texto elaborado, para usá-lo em outra 
oportunidade ou, apenas, para saber 
mais tarde o que escreveu. 

Os recursos disponíveis neste progra- 
ma são semelhantes, embora muito mais 
simples, aos dos mais modernos proces- 
sadores detexto usados, por exemplo, para 
produzir o que você está lendo agora. 
Quem já viu como tudo isso era feito há 
pouco tempo (e ainda é, em alguns luga- 
res) não terá dúvidas a respeito das vanta- 


e gens de utilizar um programa editor. 


Adicionar, corrigir, apagar, tudo 

é possível com um programa editor. 
Portanto, se você quer obter um 
texto perfeito, comece com um 
rascunho e melhore-o à vontade. 


| 





O programa do Spectrum foi elabo- 
rado para uso com um gravador casse- 
te. Se você tem um Microdrive, faça as 
modificações necessárias. 

As funções de edição são quase idên- 
ticas às do BASIC e, portanto, não é ne- 
cessário um editor especial. Todas as en- 
tradas de texto, bem como as alterações, 
devem ser feitas na parte inferior da te- 
la, a área de trabalho, ficando a parte 
superior para a visualização do que já 
foi escrito. 


Durante a edição de linhas na área de 
trabalho, pressione <CAPS SHIFT > 
e 5 para mover O cursor para a esquer- 
da e <CAPS SHIFT> e 8 para movê- 
lo para a direita. Quando ele estiver na 
posição adequada, digite os caracteres 
necessários. Para apagar, coloque o cur- 
sor à direita do caractere e pressione 
< CAPS SHIFT> e 0. 

Para transferir o texto para a memo- 
ria e para a área superior, tecle < EN- 
TER>. Linhas com mais de 64 carac- 
teres irão automaticamente para a me- 
mória, visto que a área de trabalho su- 








porta no máximo duas linhas de texto. 
Mas elas permanecerão juntas para efei- 
to de impressão, a não ser que se usem 
comandos de formatação. 

As teclas de cursor para cima e para 
baixo são usadas para localizar linhas do 
texto na memória. O marcador fica 
abaixo da linha de interesse, na área de 
visualização do texto. Esta linha pode 
ser copiada para a área de trabalho 
usando-se a função EDIT habitual — 
pressione <SHIFT> e |. Para apagar 
a linha, pressione <CAPS SHIFT > e 
9, deixando o modo editor e, em segui- 


CORREÇÃO DE ERROS 
ORTOGRÁFICOS 
COMPOSIÇÃO 


“DO RASCUNHO AO TEXTO FINAL 


ANALISE SEM PRESSA 


da, <CAPS SHIFT> e <SYMBOL 
SHIFT > simultaneamente. 

Para ler todo o texto da memória, use 
as teclas de cursor para cima e para bai- 
xo ou <CAPS SHIFT> c6e <CAPS 
SHIFT > e 7. Estas teclas moverão o 
texto para cima ou para baixo, uma li- 
nha de cada vez. 


1000 REM imprime a tela 


1005 PLOT 0,13: DRAW 255,0: PLO 
T 0,14: DRAW 255,0 

1010 PRINT AT 0,0;: FOR n=p-1l0 
TO p+8 

1020 IF n<l OR n>200 THEN PRIN 
T aS: GOTO 1050 


1025 IF n=p THEN PRINT 

1030 PRINT tS(n) 

1040 POKE 22528+320,120 

1050 NEXT n 

1060 RETURN 

2000 REM entrada 

2010 LET 48=**: LET 39*"* 

2015 PRINT 41;AT 0,0;15; FLASH 
1; BRIGHT 1;" "; FLASH O; BRIGH 
Lora 


2020 PAUSE O: LET aS=INKEYS: IF 
ag="" THEN GOTO 2020 


2025 SOUND .01,20 

2030 IF aS<CHRS 32 THEN  GOSUB 
2500 

2040 IF aS>CHARS 31 AND as«<cHAS 
123 THEN LET 1$=i5S+asS 


2042 IF aS=CHAS 13 AND b=ext-6 
THEN PRINT 41;AT 0,0;985;95; FL 


ASH 1:"ARQUIVO LOTADO”: SOUND 2 
+10: RETURN 
2045 IF aS=CHAS 13 OR LEN à1S+LE 


PRINT 41;AT 0,0;g 
18=18+55: GOTO 210 


THEN 
LET 


N 13=64 
5/95;95: 
O 


2050 IF aS=CHRS 14 THEN RETURN 


2052 IF aS=CHAS 6 THEN INPUT * 
Introduza palavra procurada”, L 
INE zS: IF 2z8="" TPEN GOTO 205 
2 

2053 IF aS=CHRS 6 THEN LET p=4 
* GOSUB 8000 

2054 IF aS=CHAS 4 THEN GOSUB 8 
000 

2055 IF agS=CHAS 5 THEN GOSUB 8 
500 

2060 GOTO 2015 

2100 IF LEN 19>32 THEN GOTO 21 
50 

2105 FOR n=b+1 TO p STEP -1 
2110 LET tS(n+1)=tS (n) 

2120 NEXT n 

2130 LET tS(n+1)=18: LET p=p+l1: 
LET b=b+1 








BM ARMAZENAGEM DO TEXTO 
E] AJUSTE DO TAMANHO 

E ACERTO DOS PARÁGRAFOS 
o AS FUNÇÕES DE EDIÇÃO 


EM CADA MÁQUINA 


2140 GOSUB 1000: GOSUB 2500: GO 
TO 2000 

2150 FOR n=b+1 TO p STEP -1 
2160 LET tS(n+2)=tS(n): LET E3( 
n+3)=tS(n+1) 

2170 NEXT nm 


2180 LET tS(n+1)=iS( TO 32): LE 
T tS$(n+2)=1$8(33 TO ): LET p=p+2 
: LET b=b+2 

2190 GoTo 2140 

2200 LET p=p-l: FOR n=p TO b+1 
2210 LET tS(n)=tS(n+1) 

2220 NEXT n 

2228 LET b=b-l 

2230 GOSUB 1000 

2240 RETURN 

2500 REM codigos de controle 


aS=CHRS 10 AND p<b-2 TH 
p=pt+l: GOSUB 1000 
aS=CHRS 11 AND p2t+3 TH 
p=p-1: GOSUB 1000 
aS=CHRS 12 AND LEN 15320 
18=1S8( TO LEN 13-41) 
15>0 
LET 


2520 IF 
EN LET 
2530 IF 
EN LET 
2540 IF 
THEN LET 
2550 IF aS=CHAS B AND LEN 
THEN LET 58=15(LEN 158)+385: 
18=158( TO LEN 15-1) 

2560 IF aS=CHAS 9 AND LEN 3520 

THEN LET 18=158+558(1): LET 33=3 
Ss(2 TO ) 

2570 IF aS<>CHAS 7 THEN GOTO 2 
5ao 

2572 LET 59=L3(D-1): LET 13="": 
PRINT 4L;AT 0,0;05;95 

2575 IF jÍS5(LEN 55) =CHAS 32 THEN 

LET 38=38( TO LEN 35-11): IF L 

EN 35$8>0 THEN GOTO 2575 

2580 IF aS=CHAS 15 AND p>4 THEN 
GOSUB 2200 

2690 RETURN 

3000 REM cores 

3010 PRINT AT 10,4;"Selecione c 

or de fundo (0-7)" 
3020 PAUSE O: LET 
aS<"0”" OR agS2>2"7” 
20 

3030 PAPER VAL aS: BORDER VAL a 
g: CLS RETURN 


Em geral, o texto é exibido na tela (e 
eventualmente impresso) em letras maiús- 
culas. Minúsculas podem ser usadas te- 
clando < SHIFT >0. Natela, aparecerão 
como caracteres invertidos (fundo escu- 
ro, caractere claro). 

Os controles de edição seguem as di- 
retrizes anteriormente mencionadas. E- 
dita-se o texto na área de trabalho, lo- 
calizada na parte inferior da tela. A par- 
te superior é utilizada para mostrar O 


aS=INKEYS: IF 
THEN GOTO 30 





texto que já está na memória. As teclas 
de controle do cursor têm um papel im- 
portante na edição. As teclas <+> e 
<-> permitem que você mova o cur- 
sor pelo texto na área de trabalho. Se 
você pressionar <SHIFT> juntamen- 
te com <*>, o cursor pulará para o 
início ou fim da linha. 

Para inserir caracteres em um ponto 
da linha na área de trabalho, coloque o 
cursor à direita do local escolhido e te- 
cle o que desejar. Não se pode sobrepor 
caracteres. Para eliminar erros, coloque 
o cursor sobre o caractere e tecle a seta 
para baixo. 

Para ativar o modo editor, tecle a se- 
ta para cima. O cursor vai para a últi- 
ma posição acessada, indicada por um 
sinal > piscando. 

No modo editor, pode-se inspecionar 
o texto da memória, rolando-o para ci- 
ma e para baixo com as setas respecti- 
vas. Avanços (ou retrocessos maiores) 
são possíveis com as teclas U e D, que 
pulam de 10 em 10 linhas. 

Se quiser apagar linhas de texto, po- 
sicione o marcador logo abaixo da linha 
e pressione <SHIFT > e seta para bai- 
xo, ao mesmo tempo. Linhas em bran- 
co podem ser inseridas a partir da área 
de trabalho, pressionando-se <EN- 
TER> quando ela está vazia. 

Para copiar uma linha da memória 
para a área de trabalho, coloque o mar- 
cador logo abaixo dela e pressione € 
(dentro do modo editor). A linha mo- 
dificada não substitui a original, deven- 
do esta ser apagada depois. Volta-se do 
modo editor para a área de trabalho 
teclando-se < ENTER>. <CLEAR> 
retorna da área de trabalho para o me- 
nu de edição. 


2500 PM=5:IF CP<5 THEN PM=CP 
2510 TBS=INKEYS:IF TBS="” THEN 
PRINT €PM*32,"”: PRINT GPM*32,"> 
":GOTO 2510 

2520 CP=CP+(TB$=""")-(TB$=CHRAS( 
10))+10*((TB$="U”)-(TB$="D")) 
2530 IF CP<l THEN CP=1 

2540 IF CP>TL THEN CP=TL 

2550 GOSUB 2090 

2560 IF TB$=CHRS$(13) THEN RETUR 
N 


2570 IF CP>1l AND TBS=CHRS(91L) T 

HEN TL=TL-1:FOR K=(CP-1) TO TL: 

TXS (K) =TXS (K+1) : NEXT: TXS (TL+1)= 
"".CP=CP-1:GOSUB 2090 

2580 IF CP>1 AND TBS="C” THEN F 
OR K=32 TO 1 STEP -1:IF MIDS(TX 
S(CP-1),K,1)="" THEN NEXT ELSE 

AS=LEFTS(TKS(CP-1),K)+"": RETURN 
2590 IF TB5S="P” GOSUB 5070 

2600 IF TB$="8". THEN SFE=SEF+I:IF 
SF=1 THEN SS=CP ELSE SE=CP:SF= 
O:GOSUB 5130 

2610 GOTO 2500 

3000 RETURN "LINHA TEMPORARIA 

4000 CLS:IF TL=1 THEN PRINT €7, 


"nada para quardar"FOR Z=1 TO 1 

000: NEXT: RETURN 

4010 CLS:LINEINPUT” NOME DO ARQ 

UIVO?";FS 

4020 IF LEFTS(FS,1)<"A” OR LEFT 

S(FS,1)>"Z” THEN 4010 

4030 IF TS=1 THEN 4120 

4040 CLS:MOTORON: AUDIO ON: PRINT 

"POSICIONE O TAPE E PRESSIONE 
<ENTER>" 

4050 IF INKEYS<>DCHRS (13) THEN 4 


050 ELSE MOTOROFF:AUDIO OFF:PRI 


NT"POSICIONE O GRAVADOR EM “REC 
" E PRESSIONE <ENTER>" 
4060 IF INKEYS<>CHRS (13) THEN 4 


060 

4070 MOTORON:FOR K=1l TO 1000:NE 

XT:0OPEN"O”,4-1,FS 

4080 PRINT 4-1,CP,TL 

4090 FOR K=1 TO TL-1:PRINT +&-1, 
TXS (K) :NEXT 
4100 CLOSE 
4110 RETURN 

4120 CLS:PRINT"CERTIFIQUE-SE DE 
QUE O DRIVE ESTA LIGADO E O 
DISCO INSERIDO. PRESSIONE <ENT 
ER>PARA CONTINUAR" 

4130 IF INKEYS<>CHARS (13) THEN 4 
130 ELSE F5S=F5+"/DAT” 

4140 OPEN "O", +41, FS 

4150 WRITE 41,CP,TL 

4160 FOR K=1l TO TL-1 

4170 WRITE 41, TXS(K) 

4180 NEXT:CLOSE 41:RETURN 

4500 CLS: PRINT €8,BLS;"carregar 
".BLS;"um”";BLS;"arquivo”";BLS: IF 
TL=1l THEN 4540 


t-1 


4510 PRINT "VOCE TEM CERTEZA (5 
[N)?” 

4520 RS$=INKEYS: IF RS$<>2"5” AND R 
S<>"N” THEN 4520 


4530 IF R$="N” THEN RETURN 
4540 CLS:LINEINPUT"NOME DO ARQU 


IVO: “.ES 
4550 IF LEFTS(FS,1)< "A" OR LEF 
TS(FS,1)>"Z”" THEN 4540 


4560 IF DL=1 THEN 4645 
4570 MOTORON: AUDIOON: PRINT” POSI 


CIONE O TAPE EM 'PLAY' E PRE 
SSIONE <ENTER2" 

4580 IF INKEYS<>CHRS (13) THEN 4 
580 

4590 OPEN "1I”,4&-1,FS 


4600 INPUT 4&-1,CP,TL 

4610 FOR K=1 TO TL-1: INPUT +-1, 
TXS (K) :NEXT 

4620 CLOSE 4-1:GOSUB 2090 

4630 TXS(TL)=STRINGS (32,126) 
4640 RETURN 

4645 F5=FS+"/DAT" 
4650 OPEN "II", 41, 
CP,TL 

4660 FOR K=1l TO TL-1:INPUT 41,T 
KS(K) 

4670 NEXKT:CLOSE 41:RETURN 

5000 CLS: PRINT 69,BLS;"selecao” 
“BLS$:"e”:;CHAS(124);"s”;BLS:PRIN 


FS: INPUT tl, 


T 696," CARREGAR DE (F)JITA OU (D 


) ISCO?"; 

5010 BS=INKEYS:IF BSS>"F” 
BS<>"D”" THEN 5010 

5020 PRINT BS:DL=0:IF BS="D” TH 
EN DL=1 


AND 





5030 PRINT: PRINT"GRAVAR EM (F)I 
TA OU (D) ISCO?”; 

5040 BS=INKEYS:IF BS<>"F” AND B 
S<>"D"” THEN 5040 

5050 PRINT BS:TS=0:1F BS="D" TH 
EN TS=l 

5060 RETURN 

5070 RETURN ' LINHA TEMPORARIA 
5130 RETURN 'LINHA TEMPORARIA 
5500 CLS: PRINT €63,BLS;"preparac 
ao” ;BLS:"da”;BLS;"impressora";B 


LS 

5510 PRINT €128,;: INPUT"LARGURA 
DO FORMULARIO" ;MW:MW=INT (MW): 1 

F MW<l THEN 5510 

5520 INPUT "COMPRIMENTO DE LINH 

A";TW:TW=INT(TW):IF TW<l OR TW> 

MW THEN 5520 

5530 INPUT"COMPRIMENTO DO FORMU 
LARIO”;PL:PL=INT(PL):IF PL<1 TH 

EN 5530 

5540 INPUT"LINHAS POR PAGINA” ;T 

H:TH=INT(TH):IF TH<l OR TH>PL T 

HEN 5530 

5550 GP=INT((MW-TW)/2):LFS=STRI 

NGS (INT((PL-TH)/2),13) 

5560 PRINT:PRINT:PRINT” CONFIRM 

A (8/N)?” 

5570 AS=INKEYS:IF R$<>2"N” AND R 

S<>"S” THEN 5570 

5580 IF R$="S" THEN RETURN ELSE 
55900 


Da Le) 


Os editores para o MSX e o Apple se- 
guem, em linhas gerais, o que já foi di- 
to. E importante prestar atenção quan- 
do se usam minúsculas, pois as respos- 
tas requeridas pelo computador só são 
aceitas em maiúsculas. Por outro lado, 
dentro do editor, podem-se usar sem 
problemas os sinais de pontuação e 
acentuação (esta, no caso do MSX). 

Trabalha-se o texto na área situada na 
parte inferior da tela. Quando se entra 
nesta área, O cursor é visível no começo 
na linha. A partir daí, escreve-se normal- 
mente. As setas para a direita e para a 
esquerda movimentam o cursor nas TEs- 
pectivas direções. Pode-se acelerar sua 
movimentação por meio de <CTRL> 
<A> e <CTRL> <S>. À pressão si- 
multânea dessas teclas coloca o cursor 
na primeira e última posição da linha, 
respectivamente. Para inserir um carac- 
tere, leve O cursor para a posição ime- 
diatamente à direita de onde fará a in- 
serção e digite o caractere. Não é possi- 
vel sobrepor caracteres. Para apagar al- 
go errado, coloque o cursor sobre o ca- 
ractere e digite <CTRL> <D&>. 

Para ativar o modo editor, pressione 
<CTRL> <E>. O marcador do texto 
começará a piscar. Teclando <CTRL> 
<O> e <CTRL> <Z>, você poderá 
inspecionar o texto todo. Esses comandos 
fazem com que o marcador (e o texto) ro- 
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Linhas em branco podem ser criadas 
simplesmente teclando-se < RETURN >, 
com a área de trabalho vazia. 

O programa para o Apple armazena 
e grava dados somente em disco. Já o 
programa para o MSX trabalha apenas 
com gravador cassete. Não estranhe se 
a leitura de dados no Apple for moro- 
sa. Para não haver problema com os si- 
nais de pontuação, é neces- 
sário que os caracteres se- 
jam lidos um de cada vez. 
Se você quiser mais veloci- 
dade, não se importando 
com a pontuação, elimine 
o laço das linhas 4600 e 
4610 e deixe apenas a i1ns- 
trução INPUT TXS (K). 





2500 PM=9:IF CP<9 THEN PM=CP 
2510 TBS=INKEYS:IF TBS=""THEN L 
OCATE O, PM: PRINTCHAS (219); :PRIN 
TCHRS (8) ;CHRS (175); :GOTO 2510 
2520 CP=CP+ (TBS=CHRS(1/))-(TBS= 
CHARS (26) ) +10*( (TBS=CHRS(23))-(T 
B5S=CHRS (24))) 
2530 IF CP<1 THEN CP=1 
2540 IF CP>TL THEN CP=TL 
2550 GOSUB 2080 
2560 IF TBS=CHRS(27) THEN RETUR 
N 
2570 IF CP>1 AND TBS=CHRS(12) T 
HEN TL=TL-1:FOR K=CP-1 TO TL:TX 
S(K)=TXS(K+1) :NEXT:TKS(TL+1)="" 
“CP=CP-1:GOSUB 2080 
2580 IF CP>1 AND TBS=CHARS(3) TH 
EN AS=TXS (CP-1)+" ":RETURN 
2590 IF TBS=CHAS (16) THEN GOSUB 
5000 
2600 IF TBS=CHRS (15) THEN SF=SF 
+1:IF SF=1 THEN SS=CP ELSE SE=C 
P:SF=0:GOSURB 5060 
2610 GOTO 2500 
3000 RETURN 'LINHA TEMPORARTA 
4000 cLS:BLS="Gravar na fita”:G 
OSUB 220:IF TL=1 THEN BEEP:LOCA 
TE 12,11:PRINT"Nada a gravar: : 
FOR Z=1 TO 1000:NEXT:RETURN 
4010 LOCATE 4,4:LINEINPUT"Nome 
do arquivo? “:;FS 
4020 IF LEFTS(FS,1)<"A” OR LEFT 
S(F5,1)>"Z"THEN 4010 
4030 LOCATE 1,6:PRINT"Posicione 
a fita e pressione <RETURN?>" 
4040 IF INKEYS<>CHRS (13) THEN 4 
040 ELSE PRINT: PRINT"Deixe o gr 
avador pronto para iniciar q 
ravação e pressione <SRETURN>” 
4050 IF INKEYS<>CHRS (13) THEN 4 
050 
4060 OPEN FS FOR OUTPUT AS 41 
lem para cima ou para baixo. <CTRL> de memória para a área de trabalho, te- 4070 PRINT&1,CP,TL 
<W> e <CTRL> <X> provocamsal- cle <CTRL> <C>,comomarcador 4080 FOR K=1 TO TL-1:PRINTA L, TX 
tos maiores (de 10 linhas). embaixo da linha desejada. A linha apa-  S(K):NEXT 
Para apagar linhas de texto, estando  recerá na área de trabalho e podera ser pia bosco hd 
no modo editor, pressiona-se <CTRL> editada imediatamente. Note que, ao te- 4500 CLS:BL$="Carregar da fita” 
<L>. A linha logo acima do marcador clar < RETURN > para devolvê-la pa- .GoSUB 220:IF TL=1 THEN 4540" 
sera apagada. ra a memória, ela não substituirá a Ori- 4510 LOCATE 12,12:PRINT”"Confirm 
Quando quiser transferir uma linha  ginal. E necessário apagá-la. e (S/N) *; 
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4520 RS=INKEYS:IF R$="" THEN 45 2560 IF TBS = CHR$S (27) THEN 4000 HOME :BLS = "GRAVAR": GOS T 
20 RETURN UB 250 41 
4530 IF R$<>"S” THEN RETURN ELS 2570 1F CP > 1 AND TB$ = CHARS 4010 IF TL = 1 THEN PRINT CH 45 
E TL=1:GOTO 4500 (12) THEN TL = TL - 1: FOR K = R$ (7);: HTAB 13: VTAB 12: PRIN os 
4540 LOCATE 4,4:LINEINPUT"Nome CP - 1 TO TL:TXS(K) = TXS(K + T "NADA A GRAVAR!”: FOR Z = 1T 4s 
do arquivo? “":;FS lj: NEXT c“IXS(TL + dd) * Tr = O 2000: NEXT : RETURN CL 
4550 IF LEFTS(FS,1)<"A” OR LEFT cp - 1: GOSUB 2090 4020 HTAB 5: VTAB 5: PRINT "NO 
S(F$,1)>"Z”" THEN 4540 2580 IF CP > 1 AND TBS = CHRS ME DO ARQUIVO? (MAX 20 CARACT)” 0? 
4560 PRINT:PRINT:PRINTTAB(2);"P (3) THEN AS =” " + TKS(CP - ] - INPUT "->";FS ' as 
osicione a fita e tecle <RETURN 3 + ” ”: RETURN 4030 IF ASC (F$) < 65 OR ASC 45 
pr 2590 IF TBS = CHRS (16) THEN (FS) > 90 THEN 4000 ( 
4570 IF INKEYS<>CHRS(13) THEN457  GosUB 5200 4040 FS = LEFTS (F$S,20):F$S = F 1 45 
0 2600 IF TB$ = CHRS (15) THEN S + 2 Tap” as 
4580 PRINT: PRINTDeixe o gravad sp = g9F+ 1: IF SF = 1 THEN SS 4050 PRINT DS;"OPEN";FS;",S";S 1; 
or pronto para leitura e tecl = cp: Goro 2620 1:",D";S2 as 
e <RETURN>. 2610 IF TES = CHR$ (15) THEN 4060 PRINT DS;"DELETE”;FS 45 
o” | 2620 GOTO 2500 4080 PRINT DS;"WRITE”;FS 45 
Rs 60o ORE RO EUR AMPET ge pa 3000 RETURN : REM [LINHA TEMPO 4090 PRINT CP: PRINT TL 46 
4610 INPUT 41,CP,TL Ja RARIA 4100 FORK=1 TOTL- 1: PRIN 
4620 FOR K=1l TO TL-1:LINEINPUT 
EL, TXS(K) NEXT um 























4630 CLOSE 41:RETURN 
55800 CLS:BLS="Confiqgura impress 
ora” :GOSUB 220 

SS10 LOCATE 0,5: PRINT"Confiqura 
ção atual:” 

5520 PRINT:PRINT: PRINT"Larqura 
da linha: ";MW;" col* 

5530 PRINT"Larqura do texto: ”; 

TW;"* col” 

5540 PRINT:PRINT"Comprimento da 
paqg.: *:;PL;”" linhas” 

5550 PRINT"Comprimento do texlo 
: *.TH;” linhas” 

5560 PRINT:PRINT:PRINT"Quer alt 
erar? "; 

R$=INKEYS: IF R$="" THEN 55 








IF R5$<>"5” THEN RETURN 
5590 CLS:GOSUB 220:LOCATE 0,8 
INPUT"Larqgura da linha “;M 







MW=INT (MW): IF MW<1 THEN 56 






















INPUT"Largura do texto ";T 


Ww 

5630 TW=INT(TW):IF TW<l OR TW>2M 
W THEN 5620 

5640 PRINT: INPUT"Comprimento da 


paço. “:;PL 
5650 PL=INT(PL):IF PL<l THEN 56 
ao 
5660 INPUT"Comprimento do texto 
"*TH 
5670 TH=INT(TH):IF TH<1l OR TH>P 
L THEN 5660 


S680 GP=INT((MW-TWU)/2):LF=INT(( 
PL-TH)/2) : LFS=STRINGS (LF,13) 
5690 GoTo 5500 

25800 PM = 9: IF CP < 9 THEN PM 
= CP 

2810 HTAB 1: VTAB PM + 1: PRIN 
T ">"; CHARS (B);: GET TBS 

2520 CP = CP + (TBS = CHRS (2Z6 
1) = (TBS = 2cCHRS (17)) + 20 * 
((TBS = CHRS (24)) - (TBS = C ns 
HRS (23))) E id 
2530 IF CP < 1 THEN CP =l1 
25840 IF CP > TL THEN CP =TL 
2550 GOSUB 2090 











T TXS(K): NEXT 

4110 PRINT DS;"CLOSE”: RETURN 

4500 HOME :BLS = "CARREGAR": G 

OSUB 250 

4510 HTAB 5: VTAB 5: PRINT “TE 

CLE [CR] PARA RETORNAR AO MENU” 
: HTAB 5: 'PRINT "NOME DO ARQUIV 

07”: INPUT "=>" ES 

4520 IF FS = “* THEN RETURN 

4530 IF ASC (F3) «< 65 OR ASC 
(FS) > 90 THEN 4500 

4540 FS = FS + ".TXT” 

4550 PRINT DS;"OPEN";FS;",5";L 

1:;",DT;LZ 

4560 PRINT D$S;"READ";FS 

4570 INPUT CP,TL 

4580 FOR K = 1 TOTLÃ- 1 

4590 TXS(K) = * 

4600 GET BS: IF BS = CHBR$S (13 


p is ni 
Nil Mai] 
po | 
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5020 VTAB 8: PRINT "CONFIGURAC 
AO ATUAL:" 

5030 PRINT PRINT TAB( 5)"CA 
RREGA DE ": PRINT TAB( 10)"SLO 
) THEN NEXT : GOTO 4620 

4610 TXS(K) = TXS(K) + BS: GOTO 
4600 

4620 PRINT CHRS$ (1): PRINT DS 
“"CLOSE": RETURN 

5000 HOME :BLS = "CONFIGURA E/ 
S": GOSUB 250 

T ";Ll: PRINT TAB( 10)"DRIVE ” 
L2Z 

5040 PRINT PRINT : PRINT TA 
B( 5)"GRAVA EM ": PRINT TAB( 1 
0)"SLOT ";Sl: PRINT 'TAB( 10)"D 

RIVE *;582 

5050 PRINT 
ER ALTERAR? "; 


PRINT : PRINT "QU 


5060 GET RS: IF RS < > "S” AN 
D R5 < > "Nº THEN 5060 

5070 IF R$ = "N” THEN RETURN 
5080 HTAB 1: VTAB B: CALL - 9 
58: PRINT "CARREGA DE " 

5090 VTAB 10: CALL - B6B: INP 
UT "SLOT? ";LI 

5100 IF LI < 1 ORL1I>Y7 THEN 
5090 

5110 VTARB 11: CALL - B68: INP 
UT "DRIVE? ";L2 

5120 IF L2«< > 1 AND L2Z< 5 
2 THEN 5110 

5130 VTAB 14: PRINT "GRAVA EM” 
5140 VTAB 16: CALL - B68B: INP 
UT "SLOT? ";81 

5150 IF Sl <10ORAS15>7 THEN 
5140 

5160 VTAB 17: CALL - B6B: INP 
UT "DRIVE? ";52 

5170 IF S82< > 1 ANDS2< > 
2 THEN 5160 

5180 GOTO 5020 

5200 RETURN : REM LINHA TEMPO 
RARIA 

5300 RETURN : REM LINHA TEMPO 
RARIA 

5500 HOME :BLS = "CONFIGURA IM 
PRESSORA”: GOSUB 250 

5510 VTAB 5: PRINT "CONFIGURAC 
ÃO ATUAL:”" 

5520 PRINT PRINT PRINT "LA 
RGURA DA LINHA: ":;MW;" COL." 
5530 PRINT "LARGURA DO TEXTO: 
“TW:" COL.” 

5540 PRINT PRINT "COMPRIMENT 
O DA PAG.: ";PL;” LINHAS” 

5550 PRINT "COMPRIMENTO DO TEX 
TO: ":TH;”" LINHAS" 

5560 PRINT PRINT : PRINT "QU 
ER ALTERAR? ”"; 

55720 GET AS: IF R$ < > "S” AN 
D R$ < > "Nº THEN 5570 

5580 IF R$ = "Nº THEN RETURN 
5590 HTAB 1: VTAB 5: CALL - 9 


5600 VTAB 8: INPUT "LARGURA DA 
LINHA? ";MW 

5610 MW = INT (MW): IF MW «< 1 

THEN 5600 

5620 VTAB 9: INPUT "LARGURA DO 
TEXTO? ";TW 

5630 TW = INT (TW): IF TW < 1 
OR TW > MW THEN 5620 

5640 VTAB 11: INPUT "COMPRIMEN 
TO DA PAG.? ";PL 

5650 PL = INT (PL): IF PL <I 
THEN 5640 

5660 VUVTAB 12: INPUT "COMPRIMEN 

TO DO TEXTO? ";TH 

5670 TH = INT (TH): IF TH< 14 

OK IH > PL THEN 500U 

56B0 GP = INT ((MW - TW) / 2): 

LES = TLF = INT ((PEL - TH), 
2) 

690 IF LF = O THEN 5500 

700 FOR Z = 1 TO LF:LES = LES 
+  CHR$ (13): NEXT 

5710 coTo 5500 

10030 PRINT CHARS (4);"PR4)" 
10040 PRINT CHARS (9);"31N” 
10060 LIST 5200 - 

10070 PRINT CHRS (4);"PR$0" 























Em matéria de jogos para computa- 
dor, variedade é o que não falta: você 
pode escolher desde a pura fantasia, in- 
do se aventurar num mundo imaginário, 
até a simulação de situações da vida 
real. Este último tipo de programa per- 
mite que testemos nossa habilidade em 
enfrentar toda sorte de perigo sem que 
com isto corramos risco de vida ou de 
perda material. 

Programas de simulação de vôo, es- 
pecificamente, têm uma aplicação prá- 
tica muito importante: companhias aé- 
reas e escolas de aviação fazem uso de- 
les no treinamento de seus pilotos. Po- 
rém, não falta a tais programas um to- 
que de fantasia: sozinho na cabine de 
comando, toda a tripulação acometida 
por uma doença misteriosa, você ater- 
rissa O avião em segurança, usando ape- 
nas uma das mãos. 





PROGRAMAS DE TREINAMENTO 


Para treinar pilotos de verdade, 
empregam-se simuladores totais ou “fa- 
se 3'*, no jargão de aviação. Estes simu- 
ladores, muito sofisticados, permitem 
que o usuário experimente todas as sen- 
sações de um piloto em situação real de 
vôo. Ele poderá ver o que o piloto vê 
de sua cabine, terá a impressão de ater- 
rissar, decolar e enfrentar turbulência e 
ouvirá os sons de um vôo autêntico, in- 
clusive os comandos do controle de trá- 
fego aéreo. Teoricamente, um piloto po- 
de completar seu treinamento em um si- 
mulador desse tipo, sem jamais ter saí- 
do do chão. 


SIMULADORES DE MESA 





Os programas de simulação de vôo 
em microcomputadores são, a exemplo 
do nosso, bem menos complexos, mas 
mostram-se também muito úteis para O 
desenvolvimento dos reflexos do piloto. 

Os simuladores de mesa são essen- 
ciais para o ensino de vôo por instru- 
mentos, um artifício que permite ao pi- 
loto dirigir o aparelho baseado apenas 
nos instrumentos do painel — o que po- 
de ser necessário no caso de más condi- 
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UM SIMULADOR 
DE VÔO (D. 


O QUE FAZ NOSSO SIMULADOR 





Nosso programa será apresentado em 
três partes. Ele supõe que o piloto assu- 
miu o comando a 2.000 metros de al- 
titude e a 20.000 metros do centro da 
pista. Pela janela, pode avistar o ho- 
rizonte (quando há visibilidade) e um 
ponto distante, que é a cabeceira da 
pista. Do mesmo modo que um piloto 
experiente, você deverá usar O racio- 
cínio para tomar decisões corretas — 
baseando-se nos instrumentos do painel 
— e trazer seus passageiros ao solo 
com segurança. 


OS INSTRUMENTOS 





O painel tem quatro mostradores. O 
primeiro informa a velocidade do ven- 
to (airspeed). Esta varia conforme este- 
jamos mergulhando (a velocidade au- 
menta), subindo (diminui) ou mudando 
a potência do motor. Um contador lo- 
go abaixo do de velocidade indica a in- 
clinação do vento (bearing). 

Um segundo mostrador revela o ni- 
vel do horizonte em relação ao aeropla- 
no. Por meio dele, mesmo sem visibili- 
dade, saberemos onde o horizonte está. 
O contador logo abaixo aponta a dire- 
ção da pista de pouso (runway). 

O terceiro mostrador é um altimetro 
com dois ponteiros: um para centenas 
e outro para milhares de metros. O con- 
tador abaixo calcula o desvio do apare- 
lho do centro da pista (drift). Como ela 
tem 100 metros de largura, um desvio 
de + 50 ou -50 ao aterrissarmos será fa- 
tal, O último mostrador indica as rota- 
ções do motor por minuto (rpm). O con- 
tador abaixo fornece a distância do cen- 
tro da pista. 


ATERRISSAGEM 





No TRS-Color, a imagem que vemos 
da cabine torna-se mais clara à medida 
que nos aproximamos do solo. Ao con- 
trário dos ouiros micros, onde o piloto 
precisa se orientar pelos dados do pai- 
nel, no TRS-Color pode-se observar a 
pista. Quando assumimos o controle, a 





Nosso programa de simulação é muito 
semelhante aos utilizados para treinar 
pilotos em vôo por instrumentos. 

A seção apresentada neste artigo 
desenha a cabine de comando. 





pista está ao norte e as condições de tem- 
po são boas. Aterrissar nestas condições 


é fácil, e o jogo perderia toda a graça 


se não houvesse outras situações. Para 
criar dificuldade, podemos mudar a ve- 
locidade do vento: uma rajada lateral, 
por exemplo, dificulta muito a ater- 
rissagem. 


O CONTROLE DO AVIÃO 





O nível do controle que temos no si- 
mulador é o mesmo de que dispõe um 
piloto em condições reais — embora seja 


necessário pressionar botões em vez de 


usar um manche. 
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Em um avião, o manche é puxado ou 
empurrado, movendo os estabilizadores 
da cauda para cima ou para baixo, con- 
forme estejamos querendo subir ou des- 
cer. Usaremos duas teclas para obter tal 
efeito. A seção do programa que cuida 
disso será apresentada no terceiro arti- 
go da série. 

Para virar O aeroplano, o manche de- 
ve ser movido lateralmente, o que acio- 
na os ailerons da asa. Também usare- 
mos teclas para virar O avião, 

Dois outros controles nos permitirão 
acelerar ou retardar o motor, o que é es- 
sencial para realizar a aterrissagem de 
maneira correta ou evitar que o apare- 
lho mergulhe, 





EH O QUE É SIMULAÇÃO DE VÔO 
= PROGRAMAS 

DE TREINAMENTO 
APRENDENDO A ATERRISSAR 
L VÔO POR INSTRUMENTOS 





Os aviões não conseguem voar abai- 
xo de uma certa velocidade. Em nosso 
programa, se a velocidade cair abaixo 
de 30 metros por segundo, o avião mer- 
gulhará, entrando em parafuso, Se es- 
tivermos a uma certa altitude, haverá 
tempo suficiente para evitar um desas- 
tre fatal, mas o perigo é iminente. 





“A DIVISÃO DO PROGRAMA 


Dividimos o programa em três par- 
tes por ele ser muito longo e complexo, 
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E O PAINEL DO AVIÃO 
z COMO CRIAR A SENSAÇÃO 
4 - DE MOVIMENTO 
TO UMA ESCOLADE 
PILOTAGEM EM CASA 


Na primeira parte, preparamos a te- 
la, desenhando o interior da cabine de 
comando, com o pára-brisa e os quatro 
mostradores e contadores. As legendas 
dos contadores e mostradores estão em 
inglês, como nos aviões reais. 

Os comandos BASIC da listagem já 
são nossos conhecidos. Os usuários do 
TRS-Color, contudo, encontrarão um 
novo comando: PCOPY. Este é especi- 
fico desta linha de micros e, mais tar- 
de, será explicado em detalhes. 

Na segunda parte do programa, toma- 
mos os instrumentos do painel sensíveis 
aos movimentos do avião. Uma seção 
temporária fará com que o aparelho voe 
ao acaso, sem piloto, para que possamos 








ver os instrumentos funcionando. 

A parte final permitirá que você as- 
suma o comando e teste suas habilida- 
des na aterrissagem do avião. 


A CABINE DE COMANDO 





Para desenhar os instrumentos, digite 
a primeira parte do programa. 


: i 


1 POKE 23658,8 
110 GOTO 5000 


5000 LET PP=-1: LET RR=-1 


5010 LET C=P1I/180: LET PY=-2000 
* LET PZ=2000: LET AS=150 

5110 PLOT 10,175: DRAW 235,0: D 
RAW 0,-90: DRAW -235,0: DRAW O, 
90 

5120 FOR K=0 TO 3: CIRCLE 35+K* 
60,50,20: NEXT K 

5130 PRINT AT 12,2;" SPEED HOR 
ZN ALT RPM” 


5150 PRINT AT 20,0;"BEARING RU 

NWAY DRIFT DISTANCE” 

5170 PLOT 87,50: DRAW 5,0: DRAW 
3,-3: DRAW 3,3: DRAW 5,0 

S1B0 LET X=35: LET Y=50: GOSUB 

7000: LET X=155: GOSUB 7000: LE 

T X=215: GOSUB 7000 

6900 STOP 

7000 FOR K=0 TO 2*PI STEP PI/5: 
PLOT X+17*SIN K,Y+17*4COS K: DR 

AW 2*SIN K,2*C0OS K: NEXT K: BET 

URN 


O POKE da linha 1 trava o compu- 
tador em letras maiúsculas. As linhas 
5000 e 5010 posicionam o avião no céu: 
a 2.000 metros de altitude e a 20.000 me- 
tros da pista, parado no ar. As linhas 
que movimentam o aparelho serão apre- 
sentadas no próximo artigo. 

A linha 5110 desenha a janela do 
avião, e a 5120, usando um laço 
FOR...NEXT, os mostradores abaixo 
dela. As linhas 5130 e 5150 imprimem 
os rótulos para os mostradores. A linha 
5170 desenha um diagrama de avião no 
mostrador de horizonte — o horizonte 
artificial não será traçado por enquan- 
to. A linha 5180 e a sub-rotina 7000 cal- 
culam as posições dos números dos mos- 
tradores: velocidade do vento, altitude 
e rpm. As funções SIN e COS são usa- 
das conforme explicações dadas no ar- 
tigo da página 334. 

Quando você executar o programa, 
o interior da cabine aparecerá na tela. 


10 SCREEN 2,2:COLOR 15,4,2 

20 FOR 1I=0 TO 7*32*8 

30 VPOKE BASE (11)+13*32*8+1,8 
40 NEXT 

110 GOTO 5000 

4000 OPEN "GRP:” FOR OUTPUT AS 
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41: PRESET(X,Y):PRINT 41,A5 


4010 CLOSE 41:RETURN 

5000 PP=-1:RR=-1 

5010 PI=4X*ATN(1) :C=PI/180:PY=-2 
0000: PZ=2000:VV=150 

5110 LINE(10,0)-(245,80),2,B 
5120 FOR K=0 TO 3:CIRCLE (35+K*6 


0,128),25,2:NEXT 

5130 PAINT(255,191),2 

5140 X=35:Y=128:GOSUB 7000:X=15 
5:GOSUB 7000:X=215:GOSUB 7000 
5150 COLOR 1:X=6:Y=8B8:AS="AIRSP 
EED":GOSUB 4000:X=78:AS="HORIZ” 
:GOSUB 4000 

5160 X=126:AS="ALTITUDE” :GOSUB 
4000:X=204:AS="RPM”:GOSUB 4000 
5170 COLOR 15:X=9:Y7=160:AS="BEA 
RING” :GOSUB 4000:X=74:AS="RUNWA 
Y”:GOSUB 4000 

5180 X=138:A8="DRIFT” 
0:X=188:AS="DISTANCE” 
0 

5190 DRAW "BM81,126C10R9F5E5SR9” 
5500 GoTo 5500 

7000 FOR K=0 TO 9:LINE(X+21*SIN 
(K*PI/5),Y-21*4COS(K*P1I/5))-(X+1 
9xSIN(K*PI/5),Y-19%COS (K*PI/5)) 
, 2: NEXT: RETURN 

A linha 10 seleciona a tela e suas co- 
res. O FOR...NEXT das três linhas se- 
guintes muda a cor de fundo de parte 
da tela para vermelho médio — COLOR 
8. Assim, o fundo colorido dos mostra- 
dores não sofrerá a interferência de co- 
mandos gráficos do BASIC que, em ge- 
ral, só atuam na cor de frente. 

A linha 110 transfere 0 programa pa- 
ra a linha 5000, que estabelece os valo- 
res iniciais de algumas variáveis. Junta- 
mente com a linha 5010, ela posiciona 
o avião no céu: a 20.000 metros do cen- 
tro da pista e a 2.000 metros de altitu- 
de, parado no ar. As linhas que movi- 
mentam o aparelho serão apresentadas 
no próximo artigo. 

A linha 5110 desenha a janela fron- 
tal do avião, e a linha 5120, os circulos 
dos mostradores. A 5130 colore todo o 
interior da cabine. A cor usada nessas 
três linhas deve ser a mesma. As linhas 
5140 e 5180 rotulam os mostradores e 
contadores do painel. Para escrever na 
tela gráfica é utilizada a sub-rotina da 
linha 4000. Esta abre um “arquivo” 
com saída para a tela gráfica — OPEN 
“GRP:'* — e imprime o conteúdo da 
variável alfanumérica A$, a partir das 
coordenadas X,Y. 

A linha 5190 desenha um aeroplano 
esquemático no mostrador de horizon- 
te. As marcas nos mostradores são de- 
senhadas pela sub-rotina 7000. 

Executando o programa agora, o in- 
terior da cabine aparecerá na tela. 


:GOSUB 400 
:GOSUB 400 


“alo 
10 HGR2::E = 35840:T = 16384 
20 FORI=E+ 32*8BTOE+3 
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2 "B+647D=- 1% 
E I,B: o 


100 
110 
120 
130 
O 
140 
0,8 
150 
160 
5Ú 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
O 
270 
50 
280 
Q 
290 
O 
300 
O 
310 





DATA 
DATA 
DATA 
DATA 


DATA 
O 

DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 


DATA 


é 


READ B: POK 


vo 
so 
vo 
a 
EX 
o< 


18, 18, 16. O, 0,0,0,0 
18,18,63,18,63,18,18 
8 ,60 ,10 ,28 ,40 ,3 


38,38,16, 8, 4,50,50,0 
12,18,18,12,82,34,92 


24,16,8,0,0,0,0,0 
32,16,8,8,8,16,32,0 
2,4,8,8,8,4,2,0 
0,8,42,28,28,42,8,0 
0,8,8,62,8,8,0,0 
0,0,0,0,0,24,16,8 
0,0,0,62,0,0,0,0 
0,0,0,0,0,24,24,0 
64,32,16,8,4,2,1,0 
28,34,38,42,50,34,28 


16,24,20,16,16,16,56 


28,34,32,24,4,2,62, 
28,34,32,24,32,34,28 


16,24,20,18,62,16,16 


62,2,2,30,32,34,28,0 


a 
Fra — Fa] .—- e— 
= 


32 


334 
34! 


35| 


amd 


*DRD =x? É 


É | 


320 
Õ 
330 
340 
(O 
350 
50 
360 
370 
380 
390 
400 
410 
420 
[Ê 
430 
Õ 
440 
O 
450 
460 
510 
470 
480 
490 
O 
300 
| 
510 
520 
0 
530 


DATA 


DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


DATA 
DATA 


DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


DATA 


28,34,2,30,394,34,28, 


62,32,32,16,8,8,8,0 
28,34,34,28,34,34,28 


28,34,34,60,32,94,28 


0,24,24,0,0,24,24,0 
0,24,24,0,0,24,16,8 
32,16,8,4,8,16,32,0 
0,0,0,62,0,62,0,0 
4,8,16,32,16,8,4,0 
28,34,32,16,8,8,0,8 
28,34,58,42,58,2,60, 


8,20,34,34,62,34,34, 
30,34,34,30,34,34,30 


28,34,2,2,2,34,28,0 
30,34,34,34,34,34,30 


62,2,2,62,2,2,62,0 
62,2,2,30,2,2,2,0 
28,34,2,58,34,34,2B, 
34,34,34,62,34,34,34 


24,8,8,8,8,8,28,0 
56,16,16,16,18,18,28 


34,18,10,6,10,18,34, 


0 
540 
550 
50 
560 
50 
570 
O 
580 
590 
1,64 
600 
+50 
610 
620 
630 
O 
640 
O 
650 
50 
660 
O 


“670 


680 
690 
700 
710 
o! 

720 
730 
740 


DATA 
DATA 


DATA 


DATA 


DATA 
DATA 


DATA 


DATA 
DATA 
DATA 


DATA 


DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
GOTO 


2,2,2,2,2,2,62,0 
65,99,85,73,65,65,65 


34,38,42,42,50,34,34 
28,34,34,34,34,34,28 


30,34,34,30,2,2,2,0 
28,34,34,34,42,50,60 


30,34,34,30,18,34,3J4 
60,2,2,28,32,32,30,0 
62,8,8,8,8,8,8,0 
34,34,34,34,34,34,28 
34,34,34,34,34,20,8, 
65,65,65,73,85,99,65 
34,34,20,8,20,34,34, 
34,34,34,20,8,8,8,0 
62,32,16,8,4,2,62,0 
60,4,4,4,4,4,60,0 


1,2,4,8,16,32,64,0 
30,16,16,16,16,16,30 





4000 N = Lx 40 +c 
4010 FOR J = 1 TO LEN 
4020 BS = MIDS (AS,J,1) 
4030 B = ASC (BS) 
4040 L = INT (N/ 40):€C = N- 
40 *L 
4050 FOR I =OTO7Z 
4060 POKE T+ (L- B* 
- 6% (L> 15)) 
L>7)+40* 
24 * 1, 


(AS) 


(L > 7) 

* 1248 + 40 * ( 

(L2>2 15) +C+ 10 

PEEK (E + B* 68 + T) 

4070 NEXT I:N = N+ 1: NEXT J 

4080 RETURN 

5000 PP = - L:RB = = 1 

5010 PI = 4 * ATN (1):C = PI / 
180:Cl = PI / 10:PT = - 20000 
'PZ = 2000:A8 = 150 

5110  HGR2 HCOLOR= 6: HPLOT 1 
0,0 TO 276,0 TO 276,80 TO 10,80 
TO 10,0 

5120 HCOLOR= 3: 
: HPLOT 71 + K * 68,134: 

= 0 TO 10 STEP PI / 10: HPLOT 

TO 42 + K * 68 + 30 * cos (cl 

+ I*HPI/5).l34 + 26 * SIN ( 

A LA PAS 2): NBAT Jek 

51390 € = 2:L = 12:A5S = "AIRSPEE 

D": GOSUB 4000:€ = 12:AS = "HOR 


FOR K = U TOS 
FOR I 


IZON”: GOSUB 4000 

5140 € = 22:A5 = "ALTITUDE": GO 
SUB 4000:€C = 33:AS = "RPM": GOS 
UB 4000 





5150 € = 2:L = 21:AS = "BEARING 


". GOSUB 4000:€C = 13:AS = "RUNW 
AY”: GOSUB 4000 
5160 C = 23:AS = "DRIFT": GOSUB 


4000:€C = 31:AS = "DISTANCE": G 
OSUB 4000 

5170 HCOLOR= 5: HPLOT 85,134 T 

O 104,134 TO 109,144 TO 114,134 
TO 134,134 

5180 HCOLOR= 3: FOR K = 0 TO 3 
: IF K = 1 THEN NEXT K 


5190 FOR I = O TOO9: HPLOT 42 
+ K * 658 + 28 * COS (CL + T* 
PI / 5),134 + 24 * SIN (CI + TI 


* PI / 5) TO 42 + K * 68 + 26 
* COB (ClLI+T*PI/ 5),1J4 + 
22 * SIN (Cl + ]* PI/ DB): NE 
KT I,K 


[o] 


Os usuários do TK-2000, além de não 
copiarem as linhas de 10 a 4080, devem 
fazer as seguintes modificações no 
programa. 


740 GOTO 5000 

4000 HTAB C + 1: 

RINT AS 

4010  RETUAN 

5100 MP 

5120 HCOLOR= 3: FOR K 
XX = 71 + K * 6B:YY = 
1 = 0 TO 10 STEP PI /I10:X=ãa4 
Z2+K* 68+ 30 * COS (ClL+I 
* PI / 5):Y = 134 + 26 * SIN É 

cl +11 * PI / 5): HPLOT XX,YY T 

O X,Y:KX = X:YY = TT: NEXT I,K 


As linhas iniciais criam um banco de 
blocos no topo da memória, para que 
o Apple possa escrever na tela. Essas li- 
nhas já foram apresentadas em artigo 
anterior, quando explicamos o uso de 
blocos gráficos: pode ser, portanto, que 
você não precise digitá-las novamente. 
O TK-2000 pode escrever na tela gráfi- 
ca sem esse artifício; assim, seus usuá- 
rios devem começar a digitação a partir 
da linha 5000. 

Como vamos utilizar a página 2, ar- 
mazenamos o banco de blocos em ou- 
tra área da memória, devidamente reser- 
vada por meio de HIMEM:. 

A sub-rotina que começa na linha 
4000, responsável pela impressão de pa- 
lavras na tela gráfica, é essencialmente 
a mesma publicada em artigo anterior, 
só que com outro número de linhas. Os 
usuários do TK-2000 dispõem de uma 
versão bem mais simples dessa sub- 
rotina. Na realidade, ela poderia ser dis- 
pensada neste micro; resolvemos 
introduzi-la aqui para que os programas 
do Apple e do TK-2000 não ficassem 
muito diferentes. 

As linhas 5000 e 5010 posicionam o 
avião no céu: a 20.000 metros do cen- 
tro da pista e a 2.000 metros de altitu- 
de, parado no ar. As linhas que movi- 


VTAB L + 1: P 


= 0 TOg3 
134: FOR 


mentam o aparelho serão apresentadas 
no próximo artigo. 

A linha 5110 desenha o pára-brisa do 
avião. No TK-2000 há um comando MP 
«para ativar a segunda página de vídeo; 
no Apple, isso é feito por HGR2. Note 
que o programa do TK-2000 deve con- 
ter HGR2 também, para permitir o uso 
das linhas inferiores da tela. 

A linha 5120, um pouco diferente pa- 
ra os dois micros, desenha os circulos 
dos mostradores. As linhas 5130 a 5160 
rotulam os mostradores e contadores do 
painel em inglês, como nos aviões reais. 
A 5170 traça o diagrama de um aeropla- 
no no mostrador de horizonte. As mar- 
cas nos mostradores são feitas pelas li- 
nhas 5180 e 5190. 

Ao ser executado, o programa dese- 
nhará o interior da cabine de nosso apa- 
relho imaginário. 


10 PCLEAR 8:PMODE 4,1 

20 DIM LES(26) ; 
30 FOR K=0 TO 26:READ LES(K):N 
XT 

40 FOR K=0 TO 9:READ NUS (K) :NEX 
7 

50 DATA BAR2, ND4R3D2NLIND2BE2,ND 
4R3DGNL2ZFDNL3BU4BR2,NR3ID4RIBU4B 
R2,ND4R2FD2GL2BE4BR, NR3ID2NR2D2R 
3BU4BA2 

60 DATA NR3D2NR2D2BE4BR, NR3D4R3 
UZLBE2ZBR, D4BR3U2ZNL3UZBRZ, ND4BRZ2 
|, BDA4REU3L2R3BR2, D2ND2NF2E2BR2 
70 DATA D4R3BU4BR2, ND4FREND4BRZ 
| ND4F 3DU4BR2, NR3ID4R3U4BAZ2,ND4R3 
D2NL3BE2, NR3ID4RINHU4ABRZ | 

B0 DATA ND4R3D2L2F2BU4BR2, BD4R3 
U2L3U2R3BA2, AND4RBRZ2, DARZ2U4BRZ2, 
D3FEU3BAZ, DSEFU4BR2 

90 DATA DF2DBL2UEZUBRZ, DEND2ZEUB 
R2, R3G3DR3BU4BRZ2 

100 DATA NR2D4R2U4BR2, BDEND4BR2 
|, R2D2L2D2A2BU4BR2, NAZBD2NR2BD2R 
ZU4BR2,D2R2D2U4BA2, NR2DZA2D2L2B 
E4, D9R2UZ2L2BE2BR2, AZND4BA2, NR2D 
4R2U2NL2UZBA2, NRAZ2D2R2D2U4BA2 
110 GoToO 5000 

4000 FOR K=1 TO LEN(AS) 

4010 BS=MIDS(AS,K,1) 

4020 IF B$>="0" AND BS<="9" THE 
N DRAW NUS (VAL (BS)) :GOTO 4050 
4030 IF B$=" " THEN N=0 ELSE N= 
ASC(B$)-64 

4040 DRAW LES(N) 

4050 NEXT :RETURN 

5000 PP=-1:RR=-1 

5010 PI=4*ATN(1):C=PI/180:PY=-2 
0000: PZ=2000:VV=150 

5110 PCLS:LINE(10,0)-(245,80),P 
SET,B 

5120 FOR K=0 TO 3:CIRCLE(35+K*6 
0,120),25,5:NEXT 

5130 DRAW "BM1B,88S4" :AS="AIRSP 
EED" :GOSUB 4000:DRAW "BMB0,8B8": 
AS="HORIZON” :GOSUB 4000 

5140 DRAW "BM140,88":AS="ALTITU 
DE” :GOSUB 4000:DRAW"BM208B,BB":A 


$=" RPM” :GOSUB 4000 

5150 DRAW "BM18,160":AS="BEARIN 
G”:GOSUB 4000:DRAW"BMB2,152":AS 
="RUNWAY” : GOSUB 4000:DRAW"BM8O, 
160” : AS="BEARING” :GOSUB 4000 
5160 DRAW"BM144,160":AS="DRIFT” 
:GOSUB 4000:DRAW"BM200,160":AS= 
"DISTANCE" :GOSUB 4000 

5170 DRAW"BMB1, 1ILBR9F5SESR9” 
5180 X=35:Y=120:GOSUB 7000:X=15 
5:GOSUB 7000:X=215:GOSUB 7000 
5190 PCOPY 3 TO 5:PCOPY 3 TO 7: 
PCOPY 4 TO 6:PCOPY 4 TO B:SCREE 
N1,l 

5500 GOTO 5500 

7000 FOR K=0 TO 9:LINE(X+24*SIN 
(K*PI/5),Y-Z4*C0OS (K*PI/5))-(X+2 
1*SIN(K*P1I/5),Y-21*COS (K*PI/5)) 
|, PSET: NEXT: RETURN 


A primeira parte do simulador inclui 
um comando ainda não utilizado em IN- 
PUT: PCOPY, que assegura a movi- 
mentação suave da imagem na tela. 

As linhas 20 a 110 preparam as ma- 
trizes que não contêm os blocos gráfi- 
cos necessários ao desenho da cabine. A 
sub-rotina das linhas 4000 e 4050 impri- 
me os gráficos na tela. 

As linhas 5000 e 5010 posicionam o 
aparelho no céu: a 20.000 metros do 
centro da pista e a 2.000 metros de alti- 
tude, parado no ar. As linhas que mo- 
vimentam o aparelho serão apresenta- 
das no próximo artigo. 

A linha 5110 desenha o pára-brisa, 
5120 desenha os círculos dos mostrado- 
res, e as linhas 5130 a 5160 rotulam os 
mesmos — em inglês, como nos aviões 
reais. A linha 5170 coloca o diagrama 
de um avião no mostrador de horizon- 
te. As marcas nos mostradores são de- 
senhadas pela linha 5180 e pela sub- 
rotina da linha 7000. 

Os comandos PCOPY na linha 5190 
desenham gráficos em páginas ainda in- 
visíveis e depois copiam-nos na tela. As- 
sim, auxiliam a preservar os desenhos do 
fundo, que são atualizados antes de se- 
rem transferidos para a tela, de modo 
que o lapso de tempo entre um quadro 
e outro seja mínimo. Isso significa que, 
quando o aeroplano está em movimen- 
to, os mostradores são alterados de 
acordo, simultaneamente. Sem PCOPY, 
apenas um mostrador poderia ser atua- 
lizado de cada vez. 

Ao executar esta seção do programa, 
o interior da cabine aparecerá desenha- 
do na tela. 

No próximo artigo, apresentaremos 
as linhas que fazem o avião voar, em- 
bora ainda sem controle. Ele vagará pe- 
los céus, mergulhando e subindo ao aca- 
so. Você poderá controlá-lo quando 
concluir o programa, no terceiro e últi- 
mo artigo. Finalmente, a vida dos pas- 
sageiros estará em suas mãos. 





CONDE pesa DS SP Paco LE E DR E OD 


“AMPLIE O BASIC 
DO TRS-COLOR 


O BASIC do TRS-Color não é intocável. 
Pode-se modificá-lo para incluir novos 
comandos, o que é útil sobretudo quando 
o micro executa tarefas que empregam 
certas rotinas repetidas vezes. 


O BASIC é apenas um programa em 
linguagem de máquina funcionando em 
seu microcomputador. Ainda que as ins- 
truções executadas estejam codificadas 
na memória ROM, no TRS-Color é pos- 
siível fazer algumas modificações para 
criar novos comandos. 


T 


m PLANEJAMENTO DAS 
NOVAS INSTRUÇÕES 
o OQUE É UM STUB 
ME NOVOS COMANDOS NO MICRO 
E RECUPERAÇÃO DE PROGRAMAS 


Esta possibilidade revela-se bastante 
útil nos casos em que usamos o compu- 
tador para realizar uma tarefa especifi- 
ca que emprega determinadas rotinas re- 
petidas vezes. Neste artigo, criaremos 
duas novas instruções destinadas ao mi- 
cro TRS-Color. 
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A rotina que sesegue acrescenta dois 
comandos ao BASIC do TRS-Color: 
OLD,que permite a recuperação de um 
programã apagado acidentalmente com 
NEW, e INVERT, que troca o grupo de 
quatro cores que estiver sendo,uliliza- 
do na tela gráfica, 


10 ORG 37000 
20 SETUR LDX 
30 LDU4IOS 
40 STONE LDA ,X+ 
50 STA 4U+ 

GO  CMPX 4308 

720 BLO STONE 


1238 


BO LDA E2 
90 STA. 298 

100% LDX ANEWRDS 

100 stTx 299 

120 "LDX 4NEWDSP 

13%” stx WI 

1440 LDX ANEWUSR 

150 sTX 176 

160 LDU 458B8D 

170 LDA 410 

180 STTWOMSTU, X++ 
190 DECK 

200 BNE STtwo 

210 RTS 

220 NEWRDS PCB 79,767196 
230 FCB 73,78,86,69,82,212 
240 NEWDSP GMPA F5CE 
250 BLO NDONE 

260 CMPA 4SDO 

270 BHS NDONÉ 

280 SUBA 4SCÊÉ 

290 SBDX INEWTBE 
300)»/9MP SS4ED 

310 »NDONE JMP S89B4 
380 OLD LDU 25 

330” PSHS U 

40 LEAX 4,U 

350  OLDONE LDA, dX+ 
360 BNE OLDQNE 

370 TER X4D 

380 SUBD ,54+ 

390 TSTA 

400 BEQ ÓLDIWO 

410 JMP s8BD 

420 OLDTWO STM ,U 
430 OLDTHR TER X,U 
440 LDX ,U 

450 BNE OLDTHR 

460 JLEAU 2,U 

470) STU 27 

480 STU 29 

490 * STU 31 

500” RTS 

5400: INVERT LDA 65314 
520 "EORA 48 

530 STA 65314 

540 RTS 

550 NEWTBLÍFDB 57964 
560 FDB 872989 

570 NEWUSR EQU * 


O QUE É UM STUB 





Para acrescentar comandos 40 pro- 





grama BASIC, é necessário que reser- 
vemos as palavras gorrespondentes. Te- 
mos, assim, que ampliar alista de pala- 
vrasréservadas, bem como dirigir o BA- 
SIC aossprogramas em código que exe- 
Cutamías novas funções. 

A posição das rotinas que executam 
os comandos BASIC é apontada por de- 
terminados vetores — ou apórnitadores 
— que ficam em porções da memória 
denominadas stubs. Existe mnorinal- 
mente dois gfubs, cada um ocupando 
dez bytes da Memória RAM. O segun- 
do deles, porém, é só um sinalizador de 
final dê tabela, não tendo outra função. 

Quando acrescentamos instruções de= 
vemos criar também umastub que aponte 
para as novas rotinas: Mas, antes dis- 
so, é preciso deslocar q stub que indica 
o fim da tabela parã Uma posição mais 
altã na memória, criando o espaçgó ne- 
cesSsarios 

O endereço inicial do Segundo stub é 
298, e as primeiras seis instruções do 
programa aqui apresentado transferems 
no para 308. O registro X é usado sdo- 
mo apontador para e stub Original, en- 
Quanto O régistro Umponta para sua no- 
va posição. Os operandos ,X + e ,U+ 
jncrementam esses apôntadores a cada 
volta do laço STONE. 

Este programa não pode sex gado 
ent sistemas com disquete, POIS OS cos 
mandos de disco usam o mestão stub. 


ADICIONE SEUS PRÓPRIOS COMANDOS | 
Depois de entender como funcio- 

| nam os stubs no reconhecimento dos 
comandos BASIC, o programador po- 


de criar seus próprios comandos. Quem 
já tem uma certa experiência deve co- 
meçar pelos comandos sem operan- 
dos, como os deste artigo. Qualquer ro- 
tina pode se transformar num coman- | 
do desse tipo. Basta o BASIC encon- 
trar o novo comando em uma linha de 
programa, e o controle é desviado pa- 
ra a rotina em código cujo endereço es- | 
ta no stub. Após sua execução, O con- 
trole retorna ao interpretador. | 
Comandos que operam sobre núme- 
ros ou variáveis exigem muito do pro- 
gramador. Se os números não forem in- 
teiros, ele terá de conhecer os segre- 
dos da aritmética de ponto flutuante e 
dos números decimais codificados em 
binário. Além de um bom conhecimen- 
to de linguagem de máquina, é preciso 
um profundo domínio da arquitetura do 
TRS-Color; ao mesmo tempo, deve-se 
saber onde ficam as variáveis do sis- 
tema, como são armazenadas as variá- 





veis e as linhas BASIC, e onde podem 
ser colocados temporariamente os va- 
lores dos operandos. 





CRIAÇÃO DE UM NOVO STUB 


Uma vez garantido o espáço necessá=" 


Tio na memória de acesso aleatório e ter - 
minado o laço/SPONE, passâmos a cria- 
ção do novo stub, 

O.primeiro byte dessemovo stub.dor- 
respondeao número denstruções apon- 
tadas potele. Portanto, LDA 42 e STA 
298 colocam o número 2 no primeiro 
byte. 

Os-deis próximos bytes trazem o en- 
dereçó da tabela de nomes de comandos. 
Estes nomes aparecem imediatamente 
após o rótulo NEWRDS; com suasle> 
tras codificadas uma uma em ASCTI. 
Só não ocorre o mesmo com a última 
letra dã.cada palavra, que se distingue 
por fer seu bit mais significativo ativa- 
dovássim, D — última letra do coman- 
doDLD — é representada pelo seu có- 
digo ASCII, 68, mais.10000000 em bi- 
nário ou 128 em decimal (68 + 128 = 
196). Dã mesma maneiras o T de IN= 
VERT será 212 e não 84. 

Finalmente, quarto o e Squinto bytes 
trazem'o endereço inicial das rotinas que 
executamos Comandos. Esse endereço 
é encónitrado nos bytes após o rótulo 
NEWTBL. 


| BASIC é CD, Assim, os có 


VETORES USR 


O VBIOL que fica nos endereços 176 .. 
e 177 aponta para as posições que con- 
têm o endereço de rotinas USR. Estas 
posições ficam geralmente logo adima 
do segundo stub, em uma tabela que go- 
meça em 308, O: Segundo stub, comtu- 
do, foi emipurrado para dentro dessa 
áreaspara grar espaço para o novo stab, 
deforma que a área USR também pre- 
cisa ser felocada. 

LDX-ENEWUSR' E STX 176 Foo. 
cam o endereçodo rótulo NEWUSR nas) 


posições 176 2177. EQU *; quê fica los Rn 


go após NEWUSR, no findbdo progra- 
ma, reservaibs Ay eximos byies para a ta- 
bela USR. da 





CÓDIGOS DOS NOVOS COMANDOS à 


O código de maior valor usãão pelo 
os dos 
dois novos camándos serão CE RICH. 
CMPAHSCE cBLO NDONE veris 
ficam se Gpodigo dal instrução está abais 
xo do valôridos novas códigos. Se Isso 
ocorrer & O primeiro stublião tiver re- JR 
conhecido D comando, houvesum emo BM 





a 
=|| 











de sintaxe, Q. microprocessador é, en- 
tão, ensiado ão sótulo NDONE que, 
por Sua vez, provóea um saltôpara o en- 


dereço 89B4 — una sub- rotina da ROM 


Que emite uma mensagem de Errol 
CMPA 4 $0.eBHS NDONE fazem o 
mesmo se oreódigo Tor maior que CF, ou 
seja, sê Ele estiver acinja da faixa em que 
ficam Os.códigos dasunOvas insfrtuções. 
Seb código passar por esses dois tes- 
tes, ficacômprovado Que ele correspon- 
de a um dos moves comandos. O pro- 
grama,sênigo, Segue em frente. CEC 
subtriido do valor do código, quesestã 
em A. O resultado permanece em A. 
O endereço inicial da tabela dê ênde- 
reços dos novos comandos é colocado 
em X. Assimpquando. processádor vai 
para 84ED — uma rotina queeuida do 


recónhecimento dossvários comandos. 


BASIC —, leva consigô os valores cons 
tidos Em X e em Ag 





A ROTINA DO COMANDO OLD 


Quando usamos NEW para apagar 
um progralmajios valores de diversas va- 
riáveis do sistema modificam-se. Se res- 
faurarmos os valores dessas variáVEIs 
antes de digitarmos outro programã bu 


de usarmos um comando PCLEARg po. 


Só há uma forma de o micro aceitar 
instruções adicionais? 
Não. Embora os diversos modelos 
| de micro tenham um BASIC semelhan- 
te, O programa que o entende varia 
muito de um para outro: alguns não 
têm stubs, e novas instruções devem 
ser adicionadas sem estes. 
Podemos chamar de “sistema” o 
programa existente na ROM que enten- 
| deo BASIC. Ele deve ser muito bem or- 
ganizado para poder associar a cada 
| comando a rotina em código certa 
(muitas vezes os comandos agem so- 
bre operandos, o que complica ainda 
mais a tarefa do sistema). Assim, ele 
mantém diversas tabelas com endere- 
ços e valores que o orientam na inter- 
pretação do BASIC, Os stubs nada 
mais são que tabelas desse tipo. Mas | 
existem outras. À principal maneira de 
se adicionar novos comandos ao BA- 
SIC de uma máquina consiste em alte- 
rar determinados valores nessas tabe- 
| las de controle. 





| EE É | 5 T E” HT E RS vo Ro RSA | 
Ro EEE dia | | 
Si E | ; 1LW he 1 E | | 
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dergmos recuperar o programa amtigo. 

O comando NEWimodificaos dois pri- 
meiros-bytes daprimeira linha do pro- 
prama-quêse quer recuperar. Esses bytes 
indicarfO endereço inicial da linha se- 
guinte. Quitas variáveis do sistema que 
apontam o final da área do programa 
BASIC também são modificadas. O que 
o comando OLD faz É restaurar o valor 
original de todos esses apontadores. 

A rotina que cuida disso começa com 
a instrução LDU 25, que colocas con- 
teúdo das posições 25 e 26/no registro 
U. Elas contêm o endereço initial do 
programa BASHO! PSAS U coloca.este 
valor: na pilha, para que possamos 
réctuperá-io mais tarde. 

A msirição LEAX 4,U cuida do en- 
dereço'do byte 4,scontado a partir do 
início dos BASIC, Os" dois primeiros 
bytes — 0% .-— continham o endereço 
da próxima'linha. Os dois seguintes — 
2e3—, o número da linha. Assim, U 
contém agora o primeiro byte da-linha 
propriamente dita. 

LDA ,X + colocaseste Byteno acu- 
mulador e incrementa X. BNE OLDO- 
NE faz. osprocessador repetif essa ins- 
trução até encontrar um zero, Que'sina- 
liza O final da linha BASIC. 

Quando o programa encontra Um ze- 
ro e sai do laço, X já foi incrementado 
e aponta pafã G.endereço inicial da pró- 
xima linha BASTO. 


VERIFICAÇÃO DE ERROS 





Se o comando OLD for acionado 
sem. que haja um programa BASIC 
aproóveitável na memória, devemos im.- 
pedir que o lixo que ponvêntura esteja 
na área BASIC seja fecuperado. Preci- 
samos, assim, de um teste que verifique 
se a primeira linha ainda faz sentidos 

Parafazer isso, O conteúdo do.apon- 
tador Xé colocado em D'e dele subtrai- 
mos o últiímo.itêem da pilha =— o endere- 
ço inicial do BASIC — com SUBD 
S+ +. O resultado indica oscompri- 
mento da primeira linha, que permane- 
ce armazenada em D. O apontador da 
pilha édecrementado;ºO que retira o en- 
dereço inicial do BASKC da pilha. 

ESTA testa o acumulador A, isto é, 
verifica o conteúdo do byte mais signi= 
ficativode D (os registros A e B.júntos 


constituem o registro D) e estabelece os 


sinalizadores de acordo. BEQ QED - 
TWO salta as instruções seguinfes;se o 
sinalizador.gêrofoi ativado. Se'o con- 
teúdo.de À não for Zero, o registro D 
continha um valor miãior que 255 — o 
maior número de bytes que uma linha 
BASIC pode conter sNesse caso, O pro- 
cessador é enviado para aTótina da me- 


mória ROM, em 8B8Byque emite uma 
mensagem de erro. 





RESTAURE OS APONTADORES 


OFegistro U aponta páfa.O primeiro 
byte da primeira linha BASLO: Assim, & 
para restaurar o apontador do Taiciolda * 
linha segihhite, colocamos o valõfide X 
no endereço apontado por U, usando 
STX ,U. 

O passo.segúinie é descobrir onde fi- 
ca o findbda area do programa BASIC, 
O laço OLDTHR trata disso. 

Como os dois primeiros bytes“ de 
qualquer linha apontam para nigio da 
seguinte, é fácilsalktar de linha efmrtinha, 
transferindo-O conteúdo de X pará De 
colocando em X o valor contido rãs pos 
sições apontadas por U. X contém Gn 
derego da próxima linha, que é colcado 
em EF U aponta, então, para os dois 
bytes que contêm o endereço da linha 
qué Ficasainda mais adiantefeste valor 
é colácado em X. 

O mesnio laço é executado repetidas 
vezes, até que se encontreama linha cu- 
jos dois primeirosdivtes Sejam 00 00, Es- 
te é o final do programa BASIC. Quan- 
do ele é encontrado, o processador Sa 
do laço. 

O endereço que fica logo acima.des- 
ses dois últimos bytes é colocadg em U, 
que passa a apontar para o início dádrea 
das variáveis. 

STU27 STU29, e STU 31 copiam 
esse endereço fãs. variáveis do sistema 
que ficam em 28 € 29, apontando para 
o início da área de uáriáveis: em 29 e 30; 
apontando para «dd início da tabela dê 
matrizes; e em 31 €32, apontando para 
o topo da RAM usada: 

RTS retorna ao BÁSIG; 


A ROTINA INVERT 





A posição de memória FF22 fica na 
memória de entrada e saida, — 1/0 — 
de periféricos e controla a Saida de da- 
dos gráficos parasdtela” O Di 5 dessa 
posição determina o grupo de Cores que 
está sendo utilizado. 

LDA SEF22 coloca o conteudo da- 
quele endereço po acumulador e o dit 3 
é alterado pela operação lógica ''om ex- 
clusivo'”, entre A e 8 (00001000, ena/i- 
nário: O resultado é recolocadodem 
FF2292e RTS volta ao BASIC. 

Essa rotina simplêsmente alferma-dors 
gruposcle Cores, fazendo tóm que tudo 
p'que está representado na cor de um 
grupo assifmaa cor correspondente do 
outro grupo de cores. 

O programa não é recolocável. 








LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





ENO PRÓXIMO NÚMERONHEHENHHI 


APLICAÇÕES 
Você já domina as funções básicas de edição. Conheça agora 
as rotinas e símbolos mais úteis à preparação de um texto. 


PROGRAMAÇÃO BASIC 
O interpretador BASIC de seu micro conta com várias funções 
matemáticas padronizadas. Veja como definir algumas outras. 


PROGRAMAÇÃO DE JOGOS 
Inicie seu vôo simulado. O avião ganhou movimento, mas, 
cuidado! Você ainda não controla o aparelho. 





